home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / nghelp.zip / CURSOR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-07-02  |  709 b   |  48 lines
  1. {$A+,B-,E+,F-,I-,N-,O-,R-,V-}
  2. {$UNDEF DEBUG}
  3. {$IFDEF DEBUG} {$D+,L+,S+} {$ELSE} {$D-,L-,S-} {$ENDIF}
  4. Unit Cursor;
  5.  
  6. Interface
  7.  
  8. Uses YNSystem;
  9.  
  10.  
  11. Type CursorShapeOBJ = Object
  12.       C : Array [1..5] of Word;
  13.       P : Byte;
  14.       {Methods...}
  15.       Procedure Init;
  16.       Procedure Done;
  17.       Procedure PushCursor;
  18.       Procedure PopCursor;
  19.      End;
  20.  
  21. Implementation
  22.  
  23. Procedure CursorShapeOBJ.Init;
  24. Begin
  25.  P := 0;
  26. End;
  27.  
  28. Procedure CursorShapeOBJ.Done;
  29. Begin
  30.  
  31. End;
  32.  
  33. Procedure CursorShapeOBJ.PushCursor;
  34. Begin
  35.  Inc(P);
  36.  C[P] := GetCursorShape;
  37. End;
  38.  
  39. Procedure CursorShapeOBJ.PopCursor;
  40. Begin
  41.  if P > 0 then
  42.   Begin
  43.    SetCursorShape(C[P]);
  44.    Dec(P);
  45.   End;
  46. End;
  47.  
  48. End.